home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 003.dms / 003.adf / EXAMPLE_PROGRAMS / example13.AMOS / example13.amosSourceCode
AMOS Source Code  |  1993-02-25  |  1KB  |  36 lines
  1. Rem EXAMPLE13.Amos 
  2. '
  3. '
  4. Rem Setting up your own custom screen
  5. '
  6. '
  7. Rem This is the line that does it all, the first number (0) the screen id
  8. Rem for your reference. The 250 is the width of the screen in pixels.
  9. Rem the 80 is the height and the 4 is the amount of colours required,
  10. Rem you can select lowres or hires 
  11. Screen Open 0,250,80,4,Lowres
  12. '
  13. '
  14. Rem The following block of code should now be familiar to you. 
  15. Curs Off : Centre "THIS IS NOW SCREEN 0"
  16. Print : Print : Centre "SCREEN OPEN 0,150,40,4,LOWRES"
  17. Print : Print : Centre "TRY MOVING THE MOUSE AROUND"
  18. Print : Print : Centre "Press any key"
  19. Clear Key : Wait Key 
  20. '
  21. '
  22. Rem A full view hires screen 
  23. Screen Open 0,640,256,8,Hires
  24. '
  25. '
  26. Curs Off : Paper 7 : Cls 7
  27. Centre "This is a full Hi res screen"
  28. Locate 0,10
  29. Centre "Good for text intensive programs such as a Word processor."
  30. Locate 0,15 : Centre "This gives 80 characters across the screen instead of the usual 40."
  31. Locate 0,20 : Centre "Now press a key to revert back to the default Amos screen."
  32. Clear Key : Wait Key 
  33. '
  34. '
  35. Rem This command returns everthing to Amos's system defaults including screens.
  36. Default